10 REM C-64 FUNCTION KEYS
20 REM REDEFINE 64 KEYS SIMILIAR TO 128 KEYS
70 PRINT"[147]":FORX=52772TO53242:READA:POKEX,A:CT=CT+A:PRINT"POKING..."X:NEXT
80 IFCT<>57586THENPRINT"[147]ERROR SOMEWHERE IN DATA STATEMENTS!":STOP
90 PRINT"[147]C64 FUNCTION KEYS REDEFINITION INSTALLED":A$=""
100 PRINT"SYS 52800 TO RE-ENABLE KEYS AT ANY TIME.":SYS52800
110 PRINTA$"F1=TEXT OR HI-RES SCREEN":PRINTA$"F2=LOAD A PROGRAM""
120 [153]A$"F3=VIEW DISK DIRECTORY":[153]A$"F4=CHANGE BORDER COLOR"
130 [153]A$"F5=SAVE A PROGRAM":[153]A$"F6=RUN CURRENT PROGRAM"
140 [153]A$"F7=LIST CURRENT PROGRAM":[153]A$"F8=CHANGE BACKGROUND COLOR":[162]
150 [131] 82,69,65,68,32,69,82,82,79,82,33,0
160 [131] 32,66,76,79,67,75,83,32,70,82,69,69,46,13,13,0
170 [131] 120,169,77,141,20,3,169,206,141,21,3,88,96
180 [131] 165,203,201,4,208,11,173,141,2,208,3,76,154,206,76,186,206
190 [131] 201,5,208,11,173,141,2,208,3,76,68,207,76,208,206
200 [131] 201,6,208,11,173,141,2,208,3,76,234,206,76,0,207
210 [131] 201,3,208,11,173,141,2,208,3,76,22,207,76,44,207,76,49,234
220 [143] DELAY LOOP
230 [131] 120,32,159,255,165,203,201,64,208,247,88,96
240 [143] F1 GRAPHIC
250 [131] 32,142,206,173,17,208,41,32,208,11,173,17,208
260 [131] 9,32,141,17,208,76,49,234,173,17,208,41,223,141,17,208,76,49,234
270 [143] F2 LOAD
280 [131] 32,142,206,169,241,160,207,32,30,171,169,34,141,119,2
290 [131] 169,1,133,198,76,49,234
300 [143] F4 BORDER
310 [131] 32,142,206,173,32,208,41,15,201,15,240,6,238,32,208
320 [131] 76,49,234,169,0,141,32,208,76,49,234
330 [143] F5 SAVE
340 [131] 32,142,206,169,236,160,207,32,30,171,169,34,141,119,2
350 [131] 169,1,133,198,76,49,234
360 [143] F6 RUN
370 [131] 32,142,206,169,232,160,207,32,30,171,169,13,141,119,2
380 [131] 169,1,133,198,76,49,234
390 [143] F7 LIST
400 [131] 32,142,206,169,246,160,207,32,30,171,169,13,141,119,2
410 [131] 169,1,133,198,76,49,234
420 [143] F8 BACKGROUND
430 [131] 32,142,206,173,32,208,41,15,240,6,238,33,208,76,49,234
440 [131] 169,0,141,33,208,76,49,234
450 [143] F3 DIRECTORY
460 [131] 32,142,206,169,2,162,230,160,207,32,189,255,169,1,162,8,160,0
470 [131] 32,186,255,32,192,255,162,1,32,198,255,32,228,255
480 [131] 201,1,240,3,24,144,102,32,228,255,32,228,255,32,228,255
490 [131] 32,228,255,170,32,228,255,32,205,189,169,32,32,210,255,162,25
500 [131] 32,228,255,32,210,255,202,208,247,169,13,32,210,255,32,228,255
510 [131] 32,228,255,32,228,255,32,228,255,170,32,228,255,32,205,189
520 [131] 32,228,255,201,32,240,3,24,144,26,32,210,255
530 [131] 162,26,32,228,255,32,210,255,202,208,247,169,13,32,210,255
540 [131] 32,225,255,240,9,208,201
550 [131] 169,48,160,206,32,30,171,32,204,255,169,1,32,195,255,76,49,234
560 [131] 169,36,160,206,32,30,171,24,144,235
570 [143] ASCII CODES
580 [131] 36,48,82,85,78,0,83,65,86,69,0,76,79,65,68,0,76,73,83,84,0